home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / BIGTYPE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  46 lines
  1. 10  'Program to display dot matrix characters from ROM patterns.
  2. 20  'Will Fastie --19 Nov 81. Typed in 6 Feb 82 from Creative Computing
  3. 30  ' VOL.8 NO. 3 (MARCH 82) BY R. HILL
  4. 40  'Modified to write over whole screen 2/13/82, by R. Hill.
  5. 50  DEFINT A-Z
  6. 90  GOSUB 1300
  7. 100  DEF SEG=&HF000
  8. 110  BASEADR=&HFA6E
  9. 120  BYTESPERCHAR=8
  10. 130  KEY OFF
  11. 200  CLS
  12. 201  X=1:Y=1
  13. 210  CHAR$=INKEY$: IF CHAR$="" THEN 210
  14. 220  CODE=ASC(CHAR$)
  15. 230  IF CODE >= 128 THEN BEEP: GOTO 200
  16. 240  ADR = BASEADR+(CODE*BYTESPERCHAR)
  17. 260  DOTCHAR=CODE
  18. 265  'Change "DOTSIZE" to get different width characters.
  19. 270  DOTSIZE=1
  20. 280  DOT$=STRING$(DOTSIZE,DOTCHAR)
  21. 285  GOSUB 1000
  22. 290  Y=Y+8*DOTSIZE
  23. 295  IF Y<SCREENWIDTH GOTO 210
  24. 300  IF X=17 GOTO 320
  25. 305  X=X+8
  26. 310  Y=1
  27. 315  GOTO 210
  28. 320  Y=1:CHAR$=INKEY$:IF CHAR$="" THEN 320
  29. 325  PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT""
  30. 330  GOTO 220
  31. 1000  FOR ROW=1 TO 8
  32. 1010    ROWVAL=PEEK(ADR+(ROW-1))
  33. 1020    FOR COL=1 TO 8
  34. 1030      COLMASK=2^(7-(COL-1))
  35. 1040      IF (ROWVAL AND COLMASK) <> 0 THEN GOSUB 1200
  36. 1050    NEXT COL
  37. 1060  NEXT ROW
  38. 1080  RETURN
  39. 1200  'Locate to bit position and display giant pixel!
  40. 1210  LOCATE X+(ROW-1),Y+(COL-1)*DOTSIZE
  41. 1220  PRINT LEFT$(DOT$,DOTSIZE);
  42. 1230  RETURN
  43. 1300  'Initialize display
  44. 1310  SCREENWIDTH=80
  45. 1320  RETURN
  46.